home *** CD-ROM | disk | FTP | other *** search
/ Publisher Platinum / Publisher Platinum.iso / clipart / utils / show38a / examples.exe / PROMOTE2.SHW < prev    next >
Encoding:
Text File  |  1993-02-01  |  4.7 KB  |  205 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  PROMOTE2.SHW                                          ;
  3. ; Date.......:  1st. Feb. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for VIDEOSYS v. 2.0A, as an example script. ;
  5. ;*********************************************************************;
  6.  
  7. ; A fully text based demo for DataShow
  8.  
  9. ; Other files involved:
  10. ; video1.scr - video11.scr
  11.  
  12. COLOR FOREGROUND 15
  13. COLOR BACKGROUND 1
  14. COLOR ATTRIBUTE 31
  15. SET DELAYFACTOR 5
  16. SET TIMEOUT 8
  17.  
  18. SET CURSOR OFF
  19.  
  20. DEFINE
  21. ///////   ///  ///  ///////     ///////    //////   ///////   //////
  22. //    //  // // //  //    //    //    //  //    //    //     //    //
  23. ////////  // // //  ///////     //    //  ////////    //     ////////
  24. //  //    // // //  //          //    //  //    //    //     //    //
  25. //   //   //    //  //          ///////   //    //    //     //    //
  26. END
  27.  
  28. SCREEN CLEAR
  29.  
  30. GOXY 1 10
  31.  
  32. MOTION RIGHT 74
  33.  
  34. VARIABLE CREATE loop TYPE NUMBER 1
  35.  
  36. MARK 1
  37.  
  38. EFFECT SCROLL UP
  39.  
  40. VARIABLE INCREASE loop 1
  41. IF loop EQ 8 DO JUMPMARK 2
  42. JUMPMARK 1
  43.  
  44. MARK 2
  45.  
  46. VARIABLE RELEASE loop
  47.  
  48. SET CURSOR ON
  49.  
  50. GOXY 10 12
  51. WRITE "Welcome to a presentation of a VIDEO SYSTEM..."
  52. WAIT 1
  53.  
  54. SET CURSOR OFF
  55.  
  56. SPEAK "V-EE-D-I-AW"
  57. WAIT 1
  58. SPEAK "S-Y-S-T-EH-M"
  59. WAIT 2
  60.  
  61. SHOW SCREEN "video1.scr" TXT
  62. WAIT 4
  63.  
  64. SET CURSOR ON
  65.  
  66. SCREEN CLEAR
  67. GOXY 10 4
  68. WRITE "The program is especially developed for administration"
  69. GOXY 10 6
  70. WRITE "in video rental stores.  Here it is possible easily to"
  71. GOXY 10 8
  72. WRITE "get a long range of information about customers video"
  73. GOXY 10 10
  74. WRITE "habits, as well as make it easy to rent out and get back"
  75. GOXY 10 12
  76. WRITE "videos. The VIDEO SYSTEM also makes it possible for you"
  77. GOXY 10 14
  78. WRITE "to export information for further processing elsewhere."
  79. GOXY 10 18
  80. WAIT "Push any key"
  81.  
  82. SET CURSOR OFF
  83.  
  84. EFFECT GLITTER
  85.  
  86. SHOW SCREEN "video2.scr" TXT
  87. WAIT 4
  88.  
  89. SCREEN CLEAR
  90. GOXY 10 4
  91. WRITE "Here we'll go through a few of the many possibilities"
  92. GOXY 10 6
  93. WRITE "that's available in VIDEO SYSTEM. First let's see what's"
  94. GOXY 10 8
  95. WRITE "available under the video menu. Here a video is beeing"
  96. GOXY 10 10
  97. WRITE "changed."
  98. WAIT 4
  99.  
  100. SHOW SCREEN "video3.scr" TXT
  101. WAIT 4
  102.  
  103. SHOW SCREEN "video4.scr" TXT
  104. WAIT 2
  105.  
  106. GOXY 32 8
  107. WRITE "Live an let die"
  108. WAIT 4
  109.  
  110. SCREEN CLEAR
  111. GOXY 10 8
  112. WRITE "To each video a price code is assigned. The price can then"
  113. GOXY 10 10
  114. WRITE "be changed very fast, and it is possible to take rebates"
  115. GOXY 10 12
  116. WRITE "into account. Here the price setup is shown."
  117. WAIT 4
  118.  
  119. SHOW SCREEN "video5.scr" TXT
  120. WAIT 4
  121.  
  122. EFFECT GLITTER
  123.  
  124. SCREEN CLEAR
  125. GOXY 10 8
  126. WRITE "Messages can be written on price tags. Such messages can"
  127. GOXY 10 10
  128. WRITE "be changed from day to day, hour to hour. The message"
  129. GOXY 10 12
  130. WRITE "writing can be done under the menu 'diverse'."
  131. WAIT 4
  132.  
  133. SHOW SCREEN "video6.scr" TXT
  134. WAIT 4
  135.  
  136. SHOW SCREEN "video7.scr" TXT
  137. WAIT 4
  138.  
  139. SCREEN CLEAR
  140. GOXY 10 8
  141. WRITE "It's very easy to rent a video to a customer. And all the"
  142. GOXY 10 10
  143. WRITE "information is shown in detail on the screen. - After all"
  144. GOXY 10 12
  145. WRITE "the information  has been entered,  a detailed price slip"
  146. GOXY 10 14
  147. WRITE "will be printed on a connected printer."
  148. WAIT 4
  149.  
  150. SHOW SCREEN "video8.scr" TXT
  151. WAIT 4
  152.  
  153. SHOW SCREEN "video9.scr" TXT
  154. WAIT 4
  155.  
  156. SCREEN CLEAR
  157. GOXY 10 8
  158. WRITE "When videos are rented out, it is possible (if you know the"
  159. GOXY 10 10
  160. WRITE "password) to get information about todays sales."
  161. WAIT 4
  162.  
  163. SHOW SCREEN "video10.scr" TXT
  164. WAIT 4
  165.  
  166. SCREEN CLEAR
  167. GOXY 10 8
  168. WRITE "At last, we show you an example of the many features that"
  169. GOXY 10 10
  170. WRITE "are availbale through the VIDEO SYSTEM. E.g. it is a possi-"
  171. GOXY 10 12
  172. WRITE "bility to have labels over customers written. You can then"
  173. GOXY 10 14
  174. WRITE "mail out special offers."
  175. WAIT 3
  176.  
  177. SHOW SCREEN "video11.scr" TXT
  178. WAIT 4
  179.  
  180. SCREEN CLEAR
  181. GOXY 10 2
  182. WRITE "With the VIDEO program there's also (of course) an easily"
  183. GOXY 10 4
  184. WRITE "read MANUAL with detailed explanations."
  185. GOXY 10 8
  186. WRITE "Unfortunately the VIDEO SYSTEM is only available in Danish"
  187. GOXY 10 10
  188. WRITE "at the moment. But interested parties can contact RMP DATA"
  189. GOXY 10 12
  190. WRITE "at the address shown in the READ.ME file for more information."
  191. GOXY 10 16
  192. WRITE "Now this presentation starts over again. But you can stop"
  193. GOXY 10 18
  194. WRITE "it at any time by pressing the escape key. You can then"
  195. GOXY 10 20
  196. WRITE "order a demonstration diskette of the VIDEO SYSTEM. With"
  197. GOXY 10 22
  198. WRITE "the demonstration version you can enter 10 customers and 10"
  199. GOXY 10 24
  200. WRITE "video' so you can get an idea of the system. Have a nice Day!"
  201. SET CURSOR ON
  202. WAIT 8
  203.  
  204. CONTINUE
  205.